#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Config::Simple;

my $cfgObj = new Config::Simple(syntax=>'ini');

#$cfgObj->param(-block=>'blobk', -value=>{'key' => 'value'});


my $cfg = ();
#$cfg = $cfgObj->vars();
#print Dumper $cfg;


#$cfgObj->param('hardware.model', '');

my $var = {
	'section.key1' => 'value1',
	'section.key2' => 'value2',
	'section.key3' => 'value3',
	'section.key4' => 'value4',
	'section.key5' => 'value5',
};


#$cfgObj->vars($var);
$cfgObj->param('mysql.pass', 'hogehogepass');
$cfgObj->param('mysql.user', 'hogehogeuser');

$cfg = $cfgObj->vars();
print Dumper $cfg;

$cfgObj->write('ebbms.org');

